Imports NEGOCIOS
Imports System.Collections.Generic


Public Class Busqueda
    Private Sub Busqueda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim oclientesnegocio As New NEGOCIOS.Clientes
        Dim oclientes As New List(Of ENTIDADES.Cliente)

        dgvbusqueda.DataSource = oclientesnegocio.TraerClientePorNombre(nombrebus)
    End Sub

    Private Sub dgvbusqueda_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvbusqueda.CellContentClick
        Dim oclientesnegocio As New NEGOCIOS.Clientes
        Dim localidadnegocio As New NEGOCIOS.Localidades
        Dim localidad As New List(Of ENTIDADES.Localidad)
        dgvbusqueda.DataSource = oclientesnegocio.TraerClientePorNombre(nombrebus)
        Dim refresh As New Altas
        refresh.txtnombre.Text = dgvbusqueda.Item(1, e.RowIndex).Value
        refresh.txtdomicilio.Text = dgvbusqueda.Item(2, e.RowIndex).Value
        localidad = localidadnegocio.GetOne(dgvbusqueda.Item(3, e.RowIndex).Value)
        refresh.txtcuit.Text = dgvbusqueda.Item(4, e.RowIndex).Value
        Me.Close()
        refresh.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfiltracuit.Click
        Dim oclientesnegocio As New NEGOCIOS.Clientes
        Dim oclientes As New List(Of ENTIDADES.Cliente)
        Dim localidadnegocio As New NEGOCIOS.Localidades
        Dim localidad As New List(Of ENTIDADES.Localidad)
        dgvbusqueda.DataSource = oclientesnegocio.TraerClientePorCuit(txtcuitfind.Text)
        dgvbusqueda.Refresh()
    End Sub
End Class